home *** CD-ROM | disk | FTP | other *** search
/ Amiga Format CD 49 / Amiga Format CD49 (2000-01-17)(Future Publishing)(GB)(Track 1 of 3)[!][issue 2000-02].iso / -serious- / sound / guitarchord / guitarchord_p.rexx < prev    next >
OS/2 REXX Batch file  |  1999-11-29  |  6KB  |  168 lines
  1.  
  2. /*  GuitarChord_P.rexx by MrDoc (1999) */
  3.  
  4. options results
  5. address music
  6. parse arg comm
  7.  
  8. MUIA_TWFmultiLED_Colour         =    0xfebd0001
  9. MUIA_TWFmultiLED_Custom         =    0xfebd0002
  10. MUIA_TWFmultiLED_Type           =    0xfebd0003
  11. MUIA_TWFmultiLED_Free           =    0xfebd0004
  12. MUIA_TWFmultiLED_TimeDelay      =    0xfebd0005
  13.  
  14.  
  15. MUIV_TWFmultiLED_Colour_Off      =   0
  16. MUIV_TWFmultiLED_Colour_On       =   1
  17. MUIV_TWFmultiLED_Colour_Ok       =   2
  18. MUIV_TWFmultiLED_Colour_Error    =   4
  19. MUIV_TWFmultiLED_Colour_Panic    =   5
  20.  
  21. MUIV_TWFmultiLED_Type_Square5    =   2
  22.  
  23. MUIV_TWFmultiLED_TimeDelay_User  =  -1
  24. MUIV_TWFmultiLED_TimeDelay_Off   =   0
  25.  
  26. Group_HorizSpacing = 0x8042c651
  27. Group_VertSpacing  = 0x8042e1bf
  28.  
  29. window id W1 COMMAND """address command delete 'ram:chords' 'quiet >nil:';
  30.                   address music 'quit';""" port inline title "GuitarChord"
  31.     group
  32.     group HORIZ frame
  33.         label left "Procurar acorde -->"
  34.         string id s1 COMMAND """GChordcomm.rexx CHORD"""
  35.     endgroup
  36.     group HORIZ frame
  37.     group frame
  38.     label center "\033bPosição 1"
  39.     group HORIZ frame
  40.         label center "Trasto-base"
  41.         text id TG1 label "\033c\033b1"
  42.     endgroup
  43.     space
  44.     group frame
  45.         label center "E A D G B E"
  46.         group HORIZ frame Group_HorizSpacing 2
  47.             do i = 1 to 6
  48.                 object class "TWFmultiLED.mcc" id L0||i ATTRS MUIA_TWFmultiLED_Type MUIV_TWFmultiLED_Type_Square5 MUIA_TWFmultiLED_Colour MUIV_TWFmultiLED_Colour_Off
  49.             end
  50.         endgroup
  51.     endgroup
  52.     group HORIZ frame Group_HorizSpacing 2
  53.            do i = 1 to 6
  54.             object class "TWFmultiLED.mcc" id L1||i ATTRS MUIA_TWFmultiLED_Type MUIV_TWFmultiLED_Type_Square5 MUIA_TWFmultiLED_Colour MUIV_TWFmultiLED_Colour_Off
  55.         end
  56.     endgroup
  57.     group HORIZ frame Group_HorizSpacing 2
  58.            do i = 1 to 6
  59.             object class "TWFmultiLED.mcc" id L2||i ATTRS MUIA_TWFmultiLED_Type MUIV_TWFmultiLED_Type_Square5 MUIA_TWFmultiLED_Colour MUIV_TWFmultiLED_Colour_Off
  60.         end
  61.     endgroup
  62.     group HORIZ frame Group_HorizSpacing 2
  63.         do i = 1 to 6
  64.             object class "TWFmultiLED.mcc" id L3||i ATTRS MUIA_TWFmultiLED_Type MUIV_TWFmultiLED_Type_Square5 MUIA_TWFmultiLED_Colour MUIV_TWFmultiLED_Colour_Off
  65.         end
  66.     endgroup
  67.     group HORIZ frame Group_HorizSpacing 2
  68.         do i = 1 to 6
  69.             object class "TWFmultiLED.mcc" id L4||i ATTRS MUIA_TWFmultiLED_Type MUIV_TWFmultiLED_Type_Square5 MUIA_TWFmultiLED_Colour MUIV_TWFmultiLED_Colour_Off
  70.         end
  71.     endgroup
  72.     group HORIZ frame Group_HorizSpacing 2
  73.         do i = 1 to 6
  74.             object class "TWFmultiLED.mcc" id L5||i ATTRS MUIA_TWFmultiLED_Type MUIV_TWFmultiLED_Type_Square5 MUIA_TWFmultiLED_Colour MUIV_TWFmultiLED_Colour_Off
  75.         end
  76.     endgroup
  77.     text id TN1
  78.     endgroup
  79.     group frame
  80.     label center "\033bPosição 2"
  81.     group HORIZ frame
  82.         label center "Trasto-base"
  83.         text id TG2 label "\033c\033b1"
  84.     endgroup
  85.     space
  86.     group frame
  87.         label center "E A D G B E"
  88.         group HORIZ frame Group_HorizSpacing 2
  89.             do i = 1 to 6
  90.                 object class "TWFmultiLED.mcc" id M0||i ATTRS MUIA_TWFmultiLED_Type MUIV_TWFmultiLED_Type_Square5 MUIA_TWFmultiLED_Colour MUIV_TWFmultiLED_Colour_Off
  91.             end
  92.         endgroup
  93.     endgroup
  94.     group HORIZ frame Group_HorizSpacing 2
  95.         do i = 1 to 6
  96.             object class "TWFmultiLED.mcc" id M1||i ATTRS MUIA_TWFmultiLED_Type MUIV_TWFmultiLED_Type_Square5 MUIA_TWFmultiLED_Colour MUIV_TWFmultiLED_Colour_Off
  97.         end
  98.     endgroup
  99.     group HORIZ frame Group_HorizSpacing 2
  100.         do i = 1 to 6
  101.             object class "TWFmultiLED.mcc" id M2||i ATTRS MUIA_TWFmultiLED_Type MUIV_TWFmultiLED_Type_Square5 MUIA_TWFmultiLED_Colour MUIV_TWFmultiLED_Colour_Off
  102.         end
  103.     endgroup
  104.     group HORIZ frame Group_HorizSpacing 2
  105.         do i = 1 to 6
  106.             object class "TWFmultiLED.mcc" id M3||i ATTRS MUIA_TWFmultiLED_Type MUIV_TWFmultiLED_Type_Square5 MUIA_TWFmultiLED_Colour MUIV_TWFmultiLED_Colour_Off
  107.         end
  108.     endgroup
  109.     group HORIZ frame Group_HorizSpacing 2
  110.         do i = 1 to 6
  111.             object class "TWFmultiLED.mcc" id M4||i ATTRS MUIA_TWFmultiLED_Type MUIV_TWFmultiLED_Type_Square5 MUIA_TWFmultiLED_Colour MUIV_TWFmultiLED_Colour_Off
  112.         end
  113.     endgroup
  114.     group HORIZ frame Group_HorizSpacing 2
  115.         do i = 1 to 6
  116.             object class "TWFmultiLED.mcc" id M5||i ATTRS MUIA_TWFmultiLED_Type MUIV_TWFmultiLED_Type_Square5 MUIA_TWFmultiLED_Colour MUIV_TWFmultiLED_Colour_Off
  117.         end
  118.     endgroup
  119.     text id TN2
  120.     endgroup
  121.     group frame
  122.     label center "\033bPosição 3"
  123.     group HORIZ frame
  124.         label center "Trasto-base"
  125.         text id TG3 label "\033c\033b1"
  126.     endgroup
  127.     space
  128.     group frame
  129.         label center "E A D G B E"
  130.         group HORIZ frame Group_HorizSpacing 2
  131.             do i = 1 to 6
  132.                 object class "TWFmultiLED.mcc" id N0||i ATTRS MUIA_TWFmultiLED_Type MUIV_TWFmultiLED_Type_Square5 MUIA_TWFmultiLED_Colour MUIV_TWFmultiLED_Colour_Off
  133.             end
  134.         endgroup
  135.     endgroup
  136.     group HORIZ frame Group_HorizSpacing 2
  137.         do i = 1 to 6
  138.             object class "TWFmultiLED.mcc" id N1||i ATTRS MUIA_TWFmultiLED_Type MUIV_TWFmultiLED_Type_Square5 MUIA_TWFmultiLED_Colour MUIV_TWFmultiLED_Colour_Off
  139.         end
  140.     endgroup
  141.     group HORIZ frame Group_HorizSpacing 2
  142.         do i = 1 to 6
  143.             object class "TWFmultiLED.mcc" id N2||i ATTRS MUIA_TWFmultiLED_Type MUIV_TWFmultiLED_Type_Square5 MUIA_TWFmultiLED_Colour MUIV_TWFmultiLED_Colour_Off
  144.         end
  145.     endgroup
  146.     group HORIZ frame Group_HorizSpacing 2
  147.         do i = 1 to 6
  148.             object class "TWFmultiLED.mcc" id N3||i ATTRS MUIA_TWFmultiLED_Type MUIV_TWFmultiLED_Type_Square5 MUIA_TWFmultiLED_Colour MUIV_TWFmultiLED_Colour_Off
  149.         end
  150.     endgroup
  151.     group HORIZ frame Group_HorizSpacing 2
  152.         do i = 1 to 6
  153.             object class "TWFmultiLED.mcc" id N4||i ATTRS MUIA_TWFmultiLED_Type MUIV_TWFmultiLED_Type_Square5 MUIA_TWFmultiLED_Colour MUIV_TWFmultiLED_Colour_Off
  154.         end
  155.     endgroup
  156.     group HORIZ frame Group_HorizSpacing 2
  157.         do i = 1 to 6
  158.             object class "TWFmultiLED.mcc" id N5||i ATTRS MUIA_TWFmultiLED_Type MUIV_TWFmultiLED_Type_Square5 MUIA_TWFmultiLED_Colour MUIV_TWFmultiLED_Colour_Off
  159.         end
  160.     endgroup
  161.     text id TN3
  162.     endgroup
  163.     endgroup
  164.     view id V1 string "Escreve o nome do acorde que queres ver no campo à direita de 'Procurar acorde'. Serão mostradas de uma a três posições, conforme o acorde."
  165. endgroup
  166. endwindow
  167.  
  168.